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IDENTIFICATION 
PRODUCT CODE: AC-9439D-MC 
PRODUCT NAME: CZTSFOO TSO3 SPLMTL INSTR 
PROGRAM DATE: MARCH 1976 
MAINTAINER: DIAGNOSTIC ENGINEERING 
THE INFORMATION IN swe DOCUMENT IS ae oe TO eres WITHOUT 
NOTICE ha SHOUL T BE CONSTRUED AS A_ COMMITMENT Y ioe” 
EQUIPMENT CORPORATION. DIGITAL EQUIPMENT CORPORATION 


THE SOFTWARE DESCRIBED IN THIS DOCUMENT IS FURNISHED UNDER A 
LICENSE AND MAY ONLY BE USED OR COPIED IN ACCORDANCE WITH THE 
TERMS OF SUCH LICENSE. 


pierre EQUIPMENT CORPORATION 
THE USE OR RELIABILITY OF ITS 
NOT SUPPLIED BY DIGITAL. 


COPYRIGHT (C) 1975,1978 BY DIGITAL EQUIPMENT CORPORATION 
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c 1 ABSTRACT 
. THIS PROGRAM IS INTENDED TO BE USED IN ADDITION TO 
THE TM11/TUsO INSTRUCTION T $1 3 AG TRPE_8y l- <OZTNA-C 
10. COMPLETE: Tes} ING. OF THe TA 
BY ec STARTING RAE ERAL URES "OE Bal ATTON. BNP OMPLETE TOR ae Our. 
2 REQUIREMENTS 
A. ANY PDP-11 PROCESSOR 
B. 4K OF CORE 
* hae a NTR R 
P- 1 OR E TAPE FRANEEORTS 
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USE STANDARD PROCEDURE FOR LOADING BINARY PAPER TAPE 


4. STARTING "ROCEDURE 


THERE ARE TWO (2 
200(8) AND 210(8 


) 
Ba 
A. 200:8): STARTING AT THIS ADORE SS WILL CAUSE A PROGRAM 
IDENTIFICATION HEADER TO BE PRINTED, A 
REQUEST FOR UNIBUS ADDRESS AND VECTOR 
Y OF THE U a 


STARTING ADDRESSES THAT MAY BE USED; 


COW Out Gore C00 OP on bofue- (9.000 ION £ 


AND A 
wh (TAPE TRANSPORT SELEC 
RO (0) IS DISPLAYED, AND 
NC BY 


8. 210°(8): STARTING AT THIS econess WILL NOT PRINT THE HEADER OR THE 
UNIT SELECT REQUEST AND IS INTENDED AS A RESTART ADDRESS Oily. 
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ae 
$> S. THIS PROGRAM HAS BEEN MODIFIED TO. RUN ON A PROCESSOR WITH OR WITHOUT 
3¢ Q@ HARDWARE SWITCH REGISTER. WHEN FIRST EXECUTED THE PROGRAM TESTS 
3s THE EXISTENCE OF A HARDWARE SWITCH REGISTER. IF NOT FOUND A 
100 SOF THARE SWITCH REGISTER LOCATION (SWREG=LOC. 176 ) IS DEF AUL TED TO. 
101 IF THIS IS THE C UPON EXECUTION THE CONTENTS OF THE SWREG ARE 
ee BUMPED IN OUTAL ON tHE CONSOLE TTY AND ANY CHANGES ARE REQUESTED 
oJ 
104 . (IE) SWR=XXXXXX NEW= 
POSSIBLE RESPONSES ARE: 
. cCR> IF NO CHANGES ARE TO BE MADE 
2. 6 DIGITS 0-7 TO REPRESENT IN OCTAL THE NEW SWITCH REGISTES 
VALUE LAST DIGIT FOLLOWED BY <CR 
3. tU TOA aa REENTERING VALUE IF ERROR IS COMMITTEC 
KEYING IN SWREG VALUE. 
4. <LF> ONLY VALID FOR ACT-11 SYSTEMS-DO NOT USE 
BUILT INTO THE PROGRAM IS THE ABILITY TO DYNAMICALLY CHANGE THE 
CONTENTS OF SWREG DURING PROGRAM EXECUTION. BY STRIKING *tG 


(CNTL G) ON et ae THE OPERATOR SETS A REQUEST FLAG TO CHANGE 
THE CONTENTS OF SWRE ee ty IS PROCESSED IN KEY wre OF Hs PROGFAM 


APPLICABLE AREAS. 


*NOTE# ANOTHER Pe dee aoe: in. THE PROGRAM IS THE TESTING 
OF 1-8 TSO3 UNITS UNDER A 


5.1 CONSOLE SWITCH SETTING 


ALL SWITCHES EXCEPT 3 USED a THE NORMAL, OR DEFAULT, RUN 
IS DONE WITH ALL GUITCHES ET 10 2 (Q) 
ALL SWITCHES ARE DYNAMIC AND MAY BE RO HANCED AT ANY TIME. 


SW1S: 1=HALT ON ERROR 


O=CONT INUE 

SW14: 1=LOOP ON ERROR (SCOPE) 
O=CONTINUE 

SW13: l=INHIBIT ERROR TIME OUT 
O=PRINT ALL vee 

SWle: 1=INHIBIT ITERATION 
O=ITERATE EACH TEST ITS ASSIGNED AMOUNT 

SW1l: 1=CONTIN CY Ae 
O=HALT AT END OF PASS 

SW10: 1=HALT AT END OF CURRENT TEST 
O=CONTINUE 

SW9-3: NO 


T USED 
SWe-0: SELECT INDIVIDUAL TEST (i-4)#* OC = 50 ALL TESTS 
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6. ERROR PRINTQUTS 


THERE ARE THREE (3) TYPES OF ERROR PRINTOUTS WHICH MAY 
APPEAR: STAIUS ERROR, DATA ERROR, POSITION ERROR. 


A. STATUS ERROR: ANY READ, WRITE, OR SPACE OPERATION WHICH 
RESULTS IN SOME’ BAD STATUS (BIT 1S OF MTC), 
OR UNEXPECTED BUS ADDRESS, OR INCORRECT 
BYTE COUNT, WILL BE PRINTED. 


B. DATA ERROR: ANY READ a gh WHICH RESULTS IN UNEXPECTED 
DATA WILL BE PRINTED. 
C. POSITION ERROR: ANY SPACE OR REWIND OPERATION RESULTING IN 


UNEXPECTED STATUS WILL BE PRINTED. 


EXAMPLES ### 
1. THE FOLLOWING EXAMPLE SHOWS A TYPICAL STATUS ERROR. 
reais: WRITE FROM ODD BYTE 


SIEM OOUMUINMUINUINUI ££ OTT 
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? WRITE ERROR THIS PRINT SHOWS THAT WHILE EXECUTING 

7 MTS: 10101 TEST 1 ON UNIT 2 AT 800 BPI, A WRI 

7 MTC: 161204 PARITY ERROR OCCURED. THE BYTE. RaunT 

7 MTBC: O IS ZERO AS IT SHOULD BE AND THE CURRENT 
7 MTCA: 6003 6003 ADDRESS IS AS EXPECTED. 

: >. THE FOLLOWING EXAMPLE SHOWS A TYPICAL DATA ERROR. 

g TEST 2: READ TO ODD BYTE . 

6 DAT A ERROR THIS PRINT SHOWS THAT A SINGLE BIT WAS 
S CN: O PICKED UP IN BOTH CHARACTER NUMBER ZERO 
e G:  pbo000000 (0) AND CHARACTER NUMBER THREE (3). 

S B: 01000000 

= CN: 3 

3 G: 00000011 

: B: 01000011 

2 3. THE FOLLOWING EXAMPLE SHOWS AN ERROR DURING A REWIND OPERATION? 
3 TEST4: OPI TOO LONG 

3 REWIND ERROR: NO BOT 
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196 OPERATION 
ie a es eG a 
201 THE PROCEDURES FOR OPERATING THIS PROGRAM ARE QUITE 
ece SIMPLE AND REQUIRE ONLY A FEW STEPS: 
eos 1. LOAD ADDRESS 200 OR 210 
os 5° SET SWICHES FOR DESIRED TEST SEQUENCE 
208 3. PRESS START 
208 ALL CONSOLE SWITCHES ARE DYNAMIC AND MAY BE CHANGED 
2cs AT ANY TIME. THE NORM L OPERATING SEQUENCE IS Al.L_SWITCHES 
gic DOWN af THE PROGRAM WILL Ta E APPROXIMATELY 1.cS MINUTES 
-ell TO RUN: HOWEVER. IF ITERA ONS “BRE INHIBITED (SWi.=1), THE 
21 PROGRAM WILL RUN IN ABOUT MINUT ES. THE END OF PASS 
21s IS NOTED BY A PRINTOU LT at inc ND OF PASS AND THE NURBER OF 
2:3 THAT OonES. 
e16 SINGLE TEST SELECTION: (SWO-SW3) 
Zig WHEN SWO-3 ARE SET TO ZERO (0), THE SCHEDUL AR WILL 
219 EXECUTE ALL TESTS (1-4) IN SEQUENCE aS A SINGLE Pass. 
220 IF S ARE SET TO SOME _N NUMBER SETWEEN 1 AND 4 
eel THEN THAT PARTICULAR TEST WILL BE EXECUTED CONTENUOUSL Y. 
eee THE PROGRAM MAY BE STOPPED AT THE END OF THE CURRENT 
223 TEST (EITHER IN SEQUENCE OR SINGLE TEST MODE ) BY SETTING 
eo4 SWITCH TEN (SW10) TO A ONE YOU MAY SELECT TEST 
225 NUMBERS IN any ORDER (UP OR. Bun) OF CAUSE EACH TEST 
ect IS SELF CONTAINED. 
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8. TEST DCESCRIPTIO? 


TESTi: WRITE FROM OOD BYTE 


rururorurortru 
oluWGIWruru 
fwte-O OM 


23s . THE PURPOSE OF THIS TEST IS TO ASSURE THAT DATA MAY BE 
36 TRANSFERRED _F FROM APEMORY 0 TAPE STARTING FROM AN OCD 
2 Bese Seas hoot Tapeless aie Na Test we 
e35 St RD PR HoAREEE ADAG "ERS TLIEERREe sou 
40 OCCUR, AND TH 
ei THE RECORD IS SIX BYES LONG, EACH BYTE IS ITS NUMBER (0,1,2,3,4 
4 
e43 TEST2: READ TO ODD BYTE 
= TS SURRESE Oe IMTESTERS 18g MEARE UML PETA PE 
a4 
sis ADDR Rese Rue SROCEDURE Is THE S ae en ter SHE (1), 
248 EXCEPT THAT THE WRITE IS FROM AN oven ADDRESS (WDATA) 
279 AND THE READ IS TO AN ODD ADDRESS (RDATA+1) 
eel TEST3: OPI TOO LONG (OPI = BIT 8 OF MTS? 
253 THE PURP OF THIS TEST ASSURE THAT THE OPI TIMER 
. WEL SHU TBOuN 1 He Bel ve BEF ont TEN POINT FIVE FEET OF SLaN 
TAPE E IS TO PERFORM WRIT WITH 
I BCKEPREE. WRITE at sie ve 32110) Pees 
TO a 10.5 FE TAP READ 


IS SEVEN N SECONDS (7SEC) OR ABOUT SEVEN POINT FIVE FEET (7.5 FT) 
OF TAPE. TEN POINT FIVE FEET OF TAPE REFLECTS THE MAXIMUM 
TOLERANCE FOR OPI. 


TEST4: OP1 TOO SHORT (OPI = BIT 8 OF MTS) 


THE PURPOSE OF THIS TEST IS TO ASSURE THAT THE OPI TIMER 
WILL NOT SHUTDOWN THE DRIVE BEFORE FOUR FEET C4 

OF BLANK TAPE IS PASSED. THE PROCEDURE IS THE Sh ne 

AS IN TEST THREE (3). HOWEVER OPI IS NOT EXPECTED BEFORE 

THE FIRST RECORD IS FOUND (4 FEET DOWN TAPE) 

FOUR FEET OF TAPE RELECTS THE MINIMUM TOLERANCE POR OPI. 


“CO.000 SIO ON Wotue- OW Min 


rorrrurrorrorrororrrrorurrurutururorur 
IN NNNN VN OOO KOO OO OUI NUON 


NIM UTL Gare 


A SCRE tact ce PR act | eho nama Ch 9 Roca 


CZTSFOO TSO3 SFLMTL INSTR MACY:1 308(10S2) iS-FEB-78 14:05 PAGE 8 SEG UCUS 
~e  SFD.Fi1 iS-FEB-7S 14:04 


4 .TITLE CZTSFOO TSO3 SPLMTL INSTR 
szZ2 - CZTSFDO 
-1S5 APR 7S/MARCH 1976/JAN 1978 
1 ae ARNES/RON PLATUKIS/’CLEM WALSH 


Feh-4-5-inlalad-5-4-4-4-4-Sohahg}-+-tgh-t-5-bghod-t-ib-5-4-5-tah-+-ta bat leh eh -t-lalighb-teh th ad 
NOTE: PROGRAM HAS BEEN MODIFIED TO RUN WITH OR WITHOUT 

A HARDWARE SWITCH REGISTER-REFER TO DOCUMENT 
, LE EEEEREREREREREREEERERE EASES LESSEE EREEERESESSEESES ESSE SSS 


-CONSOLE SWITCHES 
:SW1S: 


1=HALT ON ERROR 
; O=CONTINU 
-SW14: 1=LOOP ON ERROR (SCOPE) 
: O=CONTINUE 
-SW13: 1=D0 NOT PRINT ERRORS 
: O=PRINT ALL ERROR 
-SWle: I=INHIBIT ITERATIONS 
; O=00 ITERATIONS 
-SWll: J=CONTINUOUS CYCLE 
: C=SINGLE PA 
-SW10: I1=HALT AT END OF EACH TEST 
O=CONTINUE 


‘SWO-S: SELECT TEST NUMBER:: OO=ALL TESTS 
-REGISTER EQUIVS## ee eee eee 


990000 RO=“%0 
coooc! Ri=%1 
O0000e Re=%2 
090603 R3=%3 
OO0004 R4Y=%4 
o00005 RS=%5 
OO0006& SP=%6 
G00007 PC=%7 


; TRAP CATCHERS ###e eee e% 


LOCO SUP £ Gore OO NOUN WN OW IOUS OOO NOU Elf Ow 


WIGIMIWWIWIWWIWWWWWWWWWWltrurufrrufrurorufurrurufrorufururoururuf 
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320 
321 : EEESEEEEEE SEE EE ESE SESE SEER ESER ESSE GSES ESSE SSS ESS FED FEEPFSOFEFDESS 
see : MODIFIED JAN 24 1978 
3e3 
324 : ++ 
3eS ACT11 AND XXDP HOOKS 

= : os 

( i 
ace 00:00 S$SVPC=. ;SAVE PC 
330 000049 .=40 
331 OO00540 O00 ORIVE: .BYTE O ;ORIVE # FOR *. LOAD MEDIUM 
332 ASSEMBLE AS AD 
333 
334 000041 24) 
335 90004} 600 MEDIUM: .BYTE OC ;XxDP LOAD meQIy 
s28 ;ASSEMBLE AS A O 
338 po0042 242 
339 900042 900000 .WORD 0 AUTO MAN” RODE INDICATOR 
ay : ASSEMBLE AS AO 
ge OSOO046 .=46 
at coco4¥& Od0e006 -WORD SENDAD ;SET TO SENDAD IN .SEOP 
34S o000Se2 .=Se 
s46 900052 o00000 -WORD O pee hg BY OF PROGRAM 
ai ;ASSEMBLE AS A O 
ace 601006 . =$SVPC ;RESTORE PC 

s) 
seh : EEEFEELEE EEE EEE SRE FEE EES ELS R EFAS EE EE ERLE EERAE PEELE ES ES PEER ESES 
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SSSSSSSSSSSSASSRSSFSSFESSSREFFSSFSSSFSFSSSHSFFSFFFSSSSLFIFFSS*SD SSS 


MODIFIED JAN 24 1978 


++ 


ACT11 AND XXOP MODE INDICATORS 


AUTOM: .WORD 0 
ACTIIM: .BYTE 0 
XXDPM: .BYTE 0 
ADUMPM: .BYTE 0 
XDUMPM: .BYTE 0 


;AUTOMATIC MODE INDI 
;ACTILI AUTO MODE IND 
XXDP AUTO MODE INDI 
TACTII DUMP MODE IND ATOR 
:XXDP DUMP MODE INDICATOR 


FSSEFSSSSSREFASSSSSSSSESSSSSSSS SSE SE FSS SF ES LS HF LSESREFSFSELELSASLPH SF 
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EG OCi1 


CZTSFOO TSO3 SPLMTL INSTR 


CZTSFO 


-Pli 


000060 
o0006e 


060174 
000176 


000200 


000202 


000210 
000e 14 


O00ee4 
OCOecé 


000060 
OO4S44 
000000 


000174 
000000 
000000 


000200 
90S000 
000167 


000210 
Oie700 
000167 


000ee4 
004524 
000346 
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00057e 


009001 
O00S60 


MACYI1 30A(105e) 
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-TTY INTERRUPT VECTORS ##eeeea ee 


. =60 
TTINT 
0 


:TTY INTERRUPT HANOLER 


;SOFTWARE SWITCH REGISTER LOCATIONS#####4% 
.=174 

DISPREG:0O 

SWREG: O 

sSTARTING ADDRESS ##H ee eeeee 


RO 
JMP START ;PROGRAM START 


MOV #1,RO0 

IMP START :NO HEADER START 
-TMA-11 INTERRUPT VECTOR&### eee eee 

.=ee4 


MTINT 
340 


; TAPE INTERRUPT HANDLER 


CZTSFOO TSO3 SPLMT 


CZTSF 


41le 


SLit{oocsrce 


1U — & + b+ ee 
OWO NOU Fw 


Pil 


00064e 


900600 


172520 
17eSee 


000ee4 


INSTR 
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. =600 
s CONS TANTS##eee RE RED 


172520 


; TAPE STATUS REGISTER 
COMMAND REGISTER 
: TAPE e pyre beeese. 


ORE 
UNIT ESCRIPTION 
Bios TER COU NT 
; PROCESSOR Star us 
* CONSOL E Suir H RE 
: CONSOLE Teptay R 
-TT STATUS 


FFER 

; NU ITERATIONS 
‘READY DELAY MULTIPLIER 
;UNIBUS ADDRESS 

: VECTOR ADDRESS 


SEG O0Cis 


B02 
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421 -FLAGS AND COUNTERS##e#ter eee 

422 

423 000644 000000 TINE: 0 

424% Q006 000000 TOB: 0 

42S 0006 000000 TIB: 0 

459 D00ee4 = TENP2: 0 

4 

BES reaooe: & 

430 Book eS 000000 0D: Q 

431 O000664% 000000 i. TADD 0 
reg 000000 ITRLP 0 

433 0006 000000 SPFLG 0 

434% 000672 000000 STFLG 0 

43S 000674% Q000000 PCNTR 0 

436 000000 BAD 0 

437 000700 900000 BYTES 0 

438 000000 SCNT 0 

439 00070% 000000 FU 0 

440 706 000000 ITCNT 0 

441 000710 CRCNT 0 

442 000712 000000 DERFL 0 

443 000714% Q0000 HDRFL 0 

wed nd 716 00000 PFLG 0 

44S 9720 000000 UNP 0 

446 000722 00 BCNT 0 

447 Q000724% O00000 COUNT: QO 

446 000726 O00000 TEMPST: O 

we0 000730 O00000 ROSW: 0 

eh -TEST ENTRY TABLE #####2884% 

453 73e@ 000000 TSTTBL: O 

4S4 000734 000000 0 

4SS 736 OO02064 TLAD LT1 

456 000740 O02064 TLIIAC LT1 

457 74e OOe23le Te LTe 

458 000744 O02e3le TeIAD LTe 

459 000746 002534 LT3 

460 Q00075CG 002632 T3IAD LT3IT 

461 O0007Se d002764 THAD LT4 

46e 000754 903062 THIAD LT4IT 

463 9000756 oco9000 0 


COe 


CZTSFOO TSO3 SPLMTL_ INSTR MACY11 30Q8(10S2) 1S-FEB-78 14:05 PAGE iS 

<SteeH Pi] 1S-FEB-7e 14: 
4 901000 .=1000 
se s SHKASEKSSESSSSREARFLSFLASSELS SS 
“6: : PROGRAM START END HOUSEKEEPING 
468 
469 WITTTITITITTTITT TTT LTT TTT 
470 
47] 0901000 o00e40 START: NOP 
47@ 001002 012777 900340 177606 MOV #340, aPSW : SET creck PouNT 
4 
a8 BBtBty b48707 BR9289 isk Be, SosuR SEE Ph HRADUBRE SWITCH RES. ae 
4 061 CG cK 7 
476 88 t O85 ? Posi eC 1245 AETT OM ict MODE? > & 2 
7g Belgas ORORE Azz fe Besar jc ES 

0 . 
47 301036 Buble? boaBeE IMP SACT AN AL u58 Brocka oat Act’ # MODE ++ C.W 
480 B01 905700 1S: 1st RO : SEE IF SKIP H eR 
4 Bb i Bue 167? OO00416 ™ gt, ‘BO NECT na RESTART ++ CW 
483 O0010S2 012704 O06410 2s: MOV @MSG1.R4 
494 001056 7? 003730 JSR PC TTQUT :PRINT HEADER 
48S O01 127 50704 i MOV aMSG2e, RY 
486 001066 003720 JSR PC. TTOUT sREQUEST UNIBUS ADDRESS 
487 001072 0167 177542 MCV REGS. R3 
488 001076 004767 OO4106 JSR Pc OtTP : PRINT CURRENT - ADDRESS 
489 001102 012705 O00640 MOV #REGS,RS GET T BODRESS F ENTRY 
490 001106 012701 oOo0006 MOV #6.Ri NTRY 
491 001112 01270e 172700 MOV #172700, Re set UPPER “LIMET 

JL My Py 
495 OOlizs Badze? doScee Wok BA? FRR OT MRE CBaNSE 
494 001126 012704 007063 MOV #mSG23,R4 
495 001132 OO%767 003654 JSR PC TTOUT -REQUEST VECTOR 
436 001136 D167 17 00 MOV vecT R3 
49 114 76 4042 JSR pc ocT :-PRINT CURRENT VECTOR 
498 001146 0127 000642 MOV eVECT,RS GET BODRESS OF OF SENTRY 
499 0011S2 Ole70i oo0002 MOV #3.R1 ‘SET SIZE OF 
SoO 001156 Ole702e o00250 MOV #250, Re -SET UPPER LIMTT 
S01 001 16¢ 0127 000150 MOV #150.R3 -SET LOWER 
Soe 1166 004767 003362 JSR PC TR -GO GET RESPONSE 
S03 001172 016700 177444 MOV VECT GET VE VECTOR 
SOY 001176 012720 o04se4 MOV MATINTS (RO)+ SET INTERRUPT ADDRESS IN VECTOR 
SOS 001202 012710 OO00340 MOV #340. (RO) -SET INTERRUPT PRIORIT 
SO6 001206 012701 000004 MOV #4 Ri : SE NUMBER F REGIST ER 
S07 OOlele 0127 000600 MOV ats, Re -GET FIRST ADDRESS OF TABLE 
SCs 001216 016700 17741Eé MOV REGS. RO -GET FIRST REGISTER 
at Db isos bee ens 000002 sta ADD mp. (Rais : LOAD ADDRE S 

: Sc, ; 
217 Bolss0 |BRESBL BEE Bee POO 
215 po1eaa piee7F 010000 177340 ey 310000 aMTC ‘POWER CLEAR 

& . 

S14 OO 1e4e 018704 006444 STO: MOV sisee Ay 
Cis o001e%6 4767 GO3S540 JSR PC TTOUT s REQUEST UNIT NUMBER 
516 O012S52 005067 177332 CLR UDES ; PRESET UNIT O 
S17 O01:256 016703 177326 MOV UDES,R3 :GET UNIT NUMBER 
518 O0le6e 000303 SWAB R2 : POSITION 
5i39 O0le64 042703 177770 BIC #177770.R3 -MASK UNIT NUMBER 
S20 0601270 004767 602714 ISR PC. OCTP : PRINT RURRENT VALUE 


poised 


aia 
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ae 


HTB BES 


SENSES cweN 


SONATE EF QWWnE-~Oo 
non Torn 


00 
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095067 


cZTSFOO TSO3 SPLMTL INSTR 
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RSE 
en 


1774S6 


177210 
000176 


004256 
0090100 


177342 
17714e 


007020 
003332 


060000 
010000 
OOO646 
0000e7 


177260 


i77 144 


MACY11 30A(10Se) 


177250 


177302 
177222 
177214 
177200 


177206 


1771Se 


177120 
177102 


S$ACT: 


ST: 


es: 
NORCT: 


STl: 


STs: 


DOe 


1S-FEB-78 14:05 
MOV eTEMP3,RS 
MOV #1,R1 
MOV 87, R 
MOV 89°F 
r Te acts : 

1 

BEO NOAL 

KhpE 5. sU0ES 
SNE x 

OV DES, 

OVB ES. TEMP2 
SWAB 

BIC i 8 , UDES 
BIS MP3 ,UDES 
MOV 

CLR 

CMP aSHREG, SWR 
BNE ST 

JSR PC t ONTLU 
BIT #100, ants 
BNE 

DEC RO 
BNE ST1 

TSTB ACTLIM 

BEQ 1$ 

INCB UDES 

BR ST 

MOV a#MSGe1l,R4 
JSR Pc TTOUT 
BR ST 

BIS #60000, UDES 
NOP 

MOV #10000, aMTC 
MOV #TOB, Re 
MOV 7 RO 

CLR (Re5+ 
DEC RO 
BNE STs 

TSTB ACTLIM 

BNE TSCD 

CLR PCNTR 


PAGE 


Be SL 


16 


;SET SAVE ae 


; SET oes OF E 


ARs, aL UNITS oe, : C.W 


BOER FF 


NTRY 


int t 


UMBER 


NUMBER i IN “Aer MODE ++ 


POSITION UNIT N 


; CLEAR 
; LOAD 
; SELECT UNIT 


;GO ASK FOR SWR SETTINGS 


;SEE IF SELE 
;IF SO: BR 


OE ANODE FOR ge ae REMOTE 


: CONTINUE ae 


;PRINT NOT A 
;REDO_RE 


NUMB Rn 
NU 


CT REMOTE 


NO ++ C.W 
C. 

C.W 

YRELAGLS 


QUEST 
;SET TO 800 BPI 9 CHAN 


;POWER CLEAR 


:GET START OF TABLE 


;SET SIZE OF 
:CLEAR TABLE 


;D0_ A 
: ACT MODE? + 
: BRANCH - IF 


TABLE 


+ C.W 
YES ++ C.W 


‘CLEAR PASS COUNTER 


fc 
- -w 


CSKKKKKKTrrrCrorr 
> > = + bb (OD S 
WOnNMUILSW-OW®D 


E02 ol ie 


O TSO3 SFLMTL INSTR MACY11 308(10S2) iS-FEB-78 14:05 PAGE 17 SEG OCi: 
Pll 1S-FEB-"8 14:04 . 


- TEST SCHEDULAR### #845 44% 


001530 o002e40 TSCD: NOP 
00iS3e O0SO67 177134 CLR STFLG ;CLEAR SINGLE TEST FLAG 
BBIES Buzroe 17788 Sec 

# , 
001546 005700 TST RO SEE IF SINGLE TEST SELECT 
001550 00104 BNE STSCD 0: 
0015Se 012767 oO00732 177104 MOV aTSTTBL LTADD ‘GET TABLE START 
001560 2767 OOO0004 177076 TSCDO: ADD LTAD - 
001566 016767 177072 177072 MOV CTAGD ITRLP -SET ITERATION ADDRESS 
001574 062767 OO0000e 177064 ADD 1TRL Pp 
001602 005777 177056 TST aL tap ;SEE IF END OF CYCLE 
001606 001002 BNE F NOT: 
001610 000167 oo01e4 IMP TEND ‘GO TO END ROUTINE 
001614 OOSOB7 177074 TSCD1: CLR HORFL ‘CLEAR HEADER FLAG 
001620 917700 177040 MOV aL TADD, RO -GET TEST ADDRESS 
001624 000110 IMP (RO) -GO TO TEST 
001626 032777 OO2000 176764 TSCDe: BIT #2000, JSWR ; SEE IF HALT ON TEST 
001634 001401 BEQ TSCD3 -IF NOT: BR 
001636 00 HAL T 
001640 004767 003760 TSCD3: JSR PC. CKSWR -TEST FOR ¢tG 
001644 005767 177022 TST STFLG - SEE IF SINGLE TEST 
00i6SO 001743 BEQ TSCDO -IF NOT: BR 
001652 017700 176742 MOV JSWR. RO 
001656 O42700 177760 BIC #177760,RO0 -GET TEST NUMBER 
001662 005700 TST RO ; SEE IF ALL TESTS 
001664 001721 BEQ TSCD 0: BR 
001666 012767 OOO000l 176776 STSCD: MOV #1,STFLG SET SINGLE TEST 
001674 O22e700 oo000s CMP #S'RO ; SEE IF EXCEEDED FECT NUMBER 
001700 003417 BLE TEND -IF SO: BR 
001702 000241 CLC 
001704 O06i00 ROL RO 
001706 006100 ROL RO -POSITION NUMBER 
0601710 Ole767 O00732 176746 MOV #TSTTBL,LTADD :GET START OF TABLE 
001716 O680087 17674c ADD RO.LTADD -SET POINTER 
001722 016767 176736 176736 MOV LTADO, ITRLP 
001730 2767 OO000e 176730 ADD #2. ITRLP :SET ITERATION ADDRESS 
001736 000726 BR TS¢01 -GO DO TEST 
001740 105767 177036 TEND: TSTB ACTLIM -ACT MODE? ++ C.W 
001744 06001404 BEQ SDONE ; BRANCH - IF NO | + c. iW 
001746 105267 176636 INCB UDES :GET NEXT UNIT C.W 
0017S2 000167 177354 IMP ST : AND CONTINUE TESTING ++ C.WW 
0017 012704 006470 SDONE: MOV #MSG3,R4 
001762 004767 9603024 JSR Pc TTOUT PRINT END OF PASS 
001766 016703 176702 MOV PCATR.R3 
001772 004767 003212 JSR Pc octp :PRINT PASS NUMBER 
001776 013700 o0004e2 MOV a#42,RO0 : GET MONITOR ADORE SS ++ C.W 
0020 001405 BEQ HERE : BRANCH - IF NOT AUTO OBE” o+ C.W 
002004 900005 RESET “CLEAR THE WORLD ++ C.W 
002006 004710 SENDAD: JSR PC, (RO) -GO TO MONITOR'S ADDRESS $+ CW 
002010 o00240 NOP 
002012 o00e40 NOP 
062014 o002e40 NOP 
002016 o002e40 HERE: NOP 


O0eSe0 032777 COXOoo 176572 BIT #4090, aSWR ;SEE IF HALT ON PASS 


SI EERO, 1 ae SPLMTL_ INSTR 


Ce 


TSFO.F 


O0e0eb 


O0206C 


1S-FEB-78 14:04 


Ape oee 176744 
004767 QO03560 


MeACY11 30R(10S5e) 


TEND: 


i$: 


IS-FEB-78 14:05 


FOe 


TEND 
ACTIIM 
1$ 

PC. ChKSWR 
PCNTR 
TSCL 


PCNTR 
SACT 


PAGE 18 sts 


:IF NOT: BF 


;ACT MODE? ++ C.Wi 

; BRANCH “ 4 YES +4 CW 
: TEST FOR ¢G 

:BUMP PASS COUNTER 


: RESTART 
;BUMP COUNTER Ac “ODE oe C.W 
-RESTART IN AC? MODE a 


cZTSFDO. TS03 SPLMTL_ INSTR MACYi1 30A(10S2) 1S-FEB-78 14:05 PAGE 19 


CZTSFD.F 1S-FEG-78 14:04 
630 : SFSESESEESEASLESESERSEE ESHER ESSE SEEDS 
631 ; TEST 1: WRITE FROM ODD BYTE 
632 ‘THIS TEST WILL WRITE A SIX (6) BYTE RECORD 
634 “FROM AN ODD BYTE STARTING ADDRESS. THE RECORD 
635 * WILL BE READ BACK INTO AN EVEN STARTING ACDRESS 
636 -TO TEST FOR PROPER TRANSFER 
Pte Wretritiiiiritiitiiiiiit ttt tt it tt tiss 
& 
639 oO02064 sxcd0eK40 LTi: NOP 
B40 OG2066 O12767 007075 176564 MoV SLTINSG,EMAOOR -SET HEADER 
g 
64 ates il oos stot acta MOVB en Ea GET ERYF BAEK EROUND DATA 
643 002104 905000 CLR RO 
644 O02106 110022 LT18: §MOVB RO, (R2)+ 
64S 002110 o0Se00 INC RO -LOAD WRITE BUFFER (0,1,.2,.3.4,5. 
646 OO2lle 22700 oc0ohce CMP #6, RO 
647 OO02116 001373 BNE LTiB 
648 002120 004767 O01046 ISR PC, BIND :GO REWIND 
649 002124 012767 OO00004 176552 MOV -SET WRITE FUNCTION CODE 
650 002132 012767 007353 176536 MOV eubAT Ae BADR :SET DATA POINTER 
651 002140 012767 i77772 176532 MOV YT ;SET SIZE OF RECORD 
6Se 02146 012767 O0671S 176506 MOV smeci? ERRAD -SET WRITE ERROR CODE 
653 COeiS4 004767 OO0le62 JSR Pc ExEt -GO EXECUTE COMMAND 
654 002160 o002e40 LTiC: NOP 
B55 Dele 012767 001504 saeco JSR eels sent :GO CHECK FOR STATUS ERROR 
Of s- 
657 O0el 4767 GO1ISE ISR PC iz Pp :GO BACKSPACE ONE RECORD 
658 O02e200 Ol2e70e 007454 MOV #RDATA, R2 
6539 002204 012700 oO0010 MOV #10,RO 
B60 poee10 Diezee 177777 LTiD: MOV #-1' (R2)+ : BACKGROUND READ BUFFER 
i 4 3 DEC RO 
B62 002216 001374 ne Saad BNE LT1D - ; om 
4 MOV # N N N 
bey Bossse BiSSeS BROQRE iZbtae MOY —s BROATA. BADR SE] "REAR PO! TER 
see Bueses Busre? pouros ineuil Rey RBLTpyeRRao [SEY Reap Peon eS 
OV rn] 
PPS BBSSe BASS 7 BBP ze JSR anSG18 25 bo REA 7 
ee 
JSR PC, ERCHK CHECK ERROR 
670 O0ec6 12701 007363 nev SHORTEST RI oe ES * Bat 8 BOINTER 
671 O02266 Ole702e 007454 MOV #RDATA, R2 - SET BCD DATA POINTER 
672 O02272 O12e700 oo000e MOV .. RO -SET SIZE OF RECORD 
E73 O0ce76 004767 001656 ISR PC DCHK ;GO CHECK DATA 
674 O0e302 004767 O02i146 JSR PC’ ITER sO SEE IF ITERATIONS 


675 002306 O00167 177314 JMP 7Sstbe RETURN TO SCHEDULAR 


HO2 


C2TSFOO TSO3 SPLMTL INSTR MAaCYL1 20A(10S2) 1S-FEB-78 14:05 PAGE 20 
COTSFD.F11 1S-FEB-78 14:04 

cé ; LEEK ERERE SHER SS ELE SEES 

pre :TEST 2: READ INTO ODD BYTE 

679 THIS an By WILL WRITE 8 SIX (6) BYTE F RECO i 
RO 

PEt WILL Mats Back tuto N “068 BERR tinge hae Ss 

682 TO beet FOk PROPER TRANSFER 

683 ett ititiitiiittit iii iis 

684 

68S 002312 o002e40 LT2: NOP 

686 002314 O12e767 007133 176336 MOV #LT2MSG,EMADOR ;SET HEADER POINTER 

$87 O02e322 O1le702 007352 MOV #WOATA, Re ‘POINT TO START OF WRITE SUFFER 

688 O0e3c6 S000 CLR RO 

689 002330 11002e LT2B: MOVE RO, (R2)+ ; LOAD DATA PATTERN 

691 b58334 Bes te oo0006 CMP #6, RO : BYE IF DONE 

692 002340 9001373 BNE LT2B -IF NOT: BR 

693 O02e342 004767 O006e4 ISR PC, RWND -GO REW ND TO BOT 

694 002346 012767 OO0004 176330 MOV a4’ FU ‘SET WRITE OP-CODE 

69S O00e354 012767 O0073Se 176314 MOV #WOATA. BADR -SET STARTING ADDRESS 

696 O0e362 012767 177772 176310 MOV #-6, BYTES -SET SIZE OF RECORD 

697 002e370 004767 OO1046 ISR Pc, EXEC "GO EXECUTE COMMAND 

698 002374 9o00240 LT2Cc: NOP 

699 002376 012767 O0671S 176256 MOV #MSG17, ERRAD -SET ERROR CODE 

700 O02e404 004767 O0l26be JSR PC. ERCHK ‘GO CHECK FOR STATUS ERROR 

701 O0eC410 012767 177777 176264 MOV w-1. SCNT 

702 GOe416 004767 000734 JSR PC. BKSP -GO BACKSPACE ONE RECORD 

703 O0e422 O1270e 0074S4 MOV #RDATA, Re ; GET READ BUFFER POINTER 

704 O0e426 012700 O00010 MOV #10,RO T 

70S OGe432 Ole7ee 177777 LT2D: MOV #-1.(R2)+ : BACKGROUND POINTER 

706 002436 005300 DEC RO see IF DONE 

707 O0e440 001374 BNE LT2D F NOT: BR 

708 OO0e442e 012767 OO000e 176234 MOV #2, FUN - SET READ FUNCTION CODE 

709 O0e4SO 012767 O074SS 176220 MOV sROATA+1.BADR ; SET START OF READ BUFFER 

710 002456 012767 177772 176214 MOV #-6. BYTES -SET SIZE OF RECCRD 

7:1 OO0e464 004767 000752 JSR Pc, EXEC -GO EXECUTE COMMAND 

712 002470 o00e40 LT2E: NOP 

713 002472 012767 006732 176162 MOV #MSG18, ERRAD -SET ERROR CODE 

714 SOO 004767 OO01166 ISR PC_ERCHK -GO CHECK FOR STATUS ERROR 

7iS O0eS04 012701 007352 MOV BLDATA R1 :POINT TO EXPT DATA 

7i6 002510 Ole70e o07455 MOV sRDATA+L, Re -POINT TO RCVD DATA 

717 002514 612700 o00006 MOV R -SET SIZE OF RECORD 

718 002520 004767 001434 JSR pS DCHK ; GO CHECK DATA 

719 002524 004767 901724 JSR PC’ ITER -GO SEE IF ITERATION 

720 062530 000167 177072 IMP TS¢De ‘RETURN TO SCHEDULAR 


22] $620.75 


O0e7Se 
002760 


noes. s 


000167 


007166 


000530 


000332 


000040 
000400 


000001 


176642 


MeCYi1 30811052) 


175724 
175660 


175740 


175666 
175654 


LT3: 


LT3A: 


LT3B: 


LT3IT: 


LT3C: 


LT3x: 


iS-FEB-78 


[0e 


14:05 PAGE el 


, LHFLSEAAEAEAAKKELRELE RES 


; TEST 3: 


OPI TOO LONG 


: THIS TEST WILL ERASE oes ne) dy TEN POINT FIVE (10.5 


OF TAPE BY 


LL_REWINUL AND 
;OPI TIMER SHOULD SHUTDOWN TH 


WRITING WITH IRG, BACKSPACING 
NCE 


;REACHING THE FIRST RECORD ON TAPE. 
rere tet ii titti tii iis e. 


#LT3MSG,EMADDOR 
#40,RO 


PC. RWND 


#14. FUN 
#iWWDATA, BADR 
#20 BYTES 


amSG1? ERRAD 
PC Chk 


#2 
sadsia ERRAD 
Pc, Exec 


#40. STALL 
#400, aMTs 


L 
#i,SPFLG 
PC‘ ERPT 


SPFLG 

Se, CF AMT 

PC’ ITER 

#10. ITAMT 
TSche 


;SET TEST HEADER 

:SET NUMBER OF WRITE IRG’BACKSPACE 
;GO_REWIND UNIT 

-SET WRITE IRG FUNCTION (JDE 

; S ADDRESS 


; ER E 
:GO CHECK FOR STATUS ERROR 


-GO BACKSPACE ONE RECORD 
-SEE IF DONE ALL 
F NOT: BR 


;GO_ REWIND 

:SET OPI STALL 

:SET START OF READ BUFFER 
;SET SIZE OF 

:SET READ FUNCTION CODE 
:SET ERROR 

:GO EXECUTE COMMAND 


;RESET NORMAL STALL 
i SEE IF BTE IS SET 


BR 
CET NO NT ERROR FLAG 


is SEE IF BL dl ION 
:RETURN TO SCHEDULAR 


0 + see SPLMTL < 


Pi 


002764 


003166 


1S-FEB-7 


000240 


000167 


007215 


000300 


000102 


000534 
000040 


176434 


MACYi1 sOA(10Se) 


i7S664 


17S67e 


175626 


175630 


178534 


175476 
175460 


175446 


LT4: 


LTYA: 


LT4B: 


LT4IT: 


LT4C: 


JOe 


14:05 PAGE 22 


1S-FEB-78 


; FELAEELEEALKFEAFLRE ERLE LSE 


s TEST 4: OPI TOO SHORT 


D E RE 
RECORD n TAPE SHOULD BE 


ORW HE FIRST 
REACHED’ BEFORE OPI TIMES OUT 
write tiiittiiitititiiitt. 


NOP 
MOV #LTYMSG, EMADDR 
JSR PC. RWND 

MOV #14,R0 

MOV #14 ' FUN 

MOV SHOATAS BADR 
MOV 8-20, BYTES 
MOV eecl? ERRAD 
JSR Pc, exet 

ISR Tom ERCHK 

MOV sls 

JSR C bie rep 

DEC RO’ 

BNE LT4A 

NOP 

JSR ND 

MOV a STALL 
MOV #RDATA, BADR 
MOV #20 BYT TES 
MOV 

MOV saéoo0 ERRAD 
JSR Pc, Exec 

JSR PC’ ERCHK 

NOP 

MOV #40. STALL 
MOV we, TTAMT 

JSR PC’ ITER 

MOV #1. ITAMT 


JMP TSscbe 


;SET HEADER 
;GO_REWIND 
:-SET NUMBER OF WRITE IRG/BACKSPACES 
:SET WRITE IRG FUNCTION CUDE 
; START OF WRITE BUFFER 
RECORD 


; OMMAND 
:GO CHECK FOR STATUS ERROR 


;GO BACKSPACE ONE RECORD 
;SEE IF ven —E ALL SEQUENCES 


SIZE OF 
‘SET READ FUNCTION CODE 
:SET ERROR CODE 

:GO EXECUTE COMMAND 

:GO CHECK FOR STATUS ERRORS 


s RES I NORMAL STALL 
ET TO TWO (2) ITERATIONS 


RATI 
SRETURN TO SCHEDULAR 


51h Hane SPLMTL_INSTR 


<1TSFO.P 


G0317e 
003174 


003360 
003366 


003440 


1S-FEB-"8 


000207 


14:04 


175410 
GO0040 


000017 
175356 


000001 
000040 
020000 
175376 


17SeS6 


O0eeSe 


17See4 


000001 
000001 


17Se3e 


MACY11 30A(10Se) 


175400 
175370 


17S36e 


175344 
175334 
175344 


RWND: 


1$: 
RWND1: 


RWNDX: 


RWNDX*: 


BKSP: 


BKSPI1: 


KOe2 


IS-FEB-78 14:05 PAGE e3 


-REWIND SUBROUTINE ######888# 


NOP 
MOV UDES, IMTC -SELECT UNIT 
BIT #40. aMTS -SEE IF AT BOT 
BNE RWNOXX -IF SO: BR 
BIS #17. aMTC -START REWIND 
TSTB mrt 
BPL 1$ -AWAIT CUR 
BIT #1,aMTS -AWAIT TUR 
BEG RWAD 1 
BIT #40. aMTS i SEE IF BOT SET 
BNE RWNOXX 
BIT #20000, JSWR SEE 1F PRINT ERROR 
BNE RWNOX -IF NOT: BR 
MOV EMADDR RY 
ISR PC. TTOUT -PRINT HEADER 
MOV aMSG4.R4 
JSR Pc. TTOUT :-PRINT REWIND ERROR 
MOV #MSGS.RY 
JSR Pc. TTOU -PRINT MTS TAG 
MOV ants. R3 
JSR Pc. O¢TPE :PRINT MTS 
MOV #MSG6.RY 
JSR pc. TTOuU -PRINT MTC TAG 
MOV amntc.R3 
SR PC. OCTPE :PRINT MTC 
TST aSWR “SEE IF HALT ON ERROR 
PL RWNDXX -IF NOT: BR 
HALT 
JSR PC, CKSWR -TEST FOR 1G 
RTS PC : RETURN 
sBACKSPACE SUBROUTINE +##*#### Hex 
NOP 
MOV UDES, IMTC -SELECT UNIT . 
MOV SCNT, SM TBC - SET NUMBER OF RECORDS TO SPACE 
BIS 3,0MT -START SPACE REVERSE 
BIT + 340 
BEQ piapi : AWAIT 
MOV #1.SPFLG - SET SPACE FLAG 
MOV #MSG9, ERRAD 
JSR PC. ERCHK :GO CHECK FOR ERROR 
CLR SPFLG ‘CLEAR SPACE FLAG 
RTS FC » RETURN 


5 ita SM as SPLMTL_INSTR 
C2 1S-FEB-78 


TSFO.F 


093670 


40 
000207 


14:04 


OCO0e00 


17S2e6 
175164 


174742 


001736 


MACY11 30A(10Se) 


17S1e6 


1750Se2 


174776 


EXEC: 
EXECO: 


EXEC]: 


EXECe: 


EXEC3: 


EXEC: 
EXECX: 


EXECXX: 


1S-FEB-78 


LOe2 


14:05 PAGE 24 


>COMMAND EXECUTE SUBROUTINE ####e4258% 


RS 
#200,.aMTC 
EXEC2 


aMSG10. RY 

PC. TTOUT 

pSHR 
XEC2 


PC, CKSWR 


UDES, ONTC 
eves aMTBA 
aT aMTBC 


EX 

EMADDR RY 
Pc. TTOUT 
eMeGl i RY 
PC. TTOUT 
aSWR 
EXECXX 


PC,CKSWR 
PC 


-SEE IF CUR 

-IF SO: BR 

-SEE IF TIMED OUT 
-IF NOT: BR 

-SEE IF DONE HEADER 
-IF SO: BR 


-ELSE PRINT HEADER 

-PRINT = Ae ERROR 

i SEE alt ON ERROR 
NOT: B 

> TEST FOR ¢tG 

at AEHORY ADDRESS 

Et BYTE’ COUN 


FUNCTION. 
SET IN GO BIT AND INTERRUPT ENAGLE 
- LOAD COMMAND+GO+IE 


: Abb On NTERRUPTS 
°S READY STALL 
-AWAIT INTERRUPT 


-SEE IF PRINT ERROR 
“SEE IF DONE HEADER 

-IF SO: BR 

-PRINT HEADER 

: PRINT NO INTERRUPT | MESSAGE 
‘SEE IF HALT ON ERR 

- IF NOT: BR 
-TEST FOR 1G 


;RETURN TO CALLER 


SEG S024 


CZTSFOO TSO3 SPLMTL INSTR 
1S-Fi3-78 14:04 


CZTSFD 


: 


ee ee oe oe oe eo 


00 00D DW DOV WO WOW 


=o 
—-OOON OUI Wu O OM 


See 


Pll 


28898 
Eyenner easy 


eerie 


8 
= 
a 
<= 


146 


oo 
oOo 
tr 
— 
uv 
tO 


000167 


174704 
TPab74 
174786 


4746 
154538 


174642 


020000 
174726 
174664 
001012 


001066 
174SSe2 


174542 
001050 
174454 


001450 
000240 


MACY11 30A(10S2) 


174640 


ERCHK: 


ERCHKI1: 


ERCHKe: 


ERCHK3: 


ERPT: 


ERPT1: 


ERPTX: 


ERPTXX: 


1S-FEB-76 


14:05 PAGE eS 


:STATUS ERROR CHECK SUBROUTINE ####eeee 4% 


BYTES, R3 
R,R3 
PR a 
—. 
RS MTBA 
Eze? 


#20000, JSWR 
ERPTX 


R3 
ctp 
BYTES, R3 


BADR. R3 
Pc. otTP 
WR 


as 
ERPTXx 
PC. CKSWR 
SCOPE 


;SEE I 


-IF NO 
Eb 


ELSE 


gee Y 
; IF NO 


F ANY ERROR BITS 


T: BR 
PRINT ERROR 
F BYTE COUNT IS ZERO 


; eR 
PRINT ERROR 


ETRE SORA Ron 


‘ate eel 
‘ELSE EXIT 


-SEE I 


F SHOULD PRINT 


NOT: 
-SEE IF DONE HEADER 
-IF SO: BR 


;ELSE PRINT HEADER 
; LAG 


;SET F 

;PRINT ERROR CODE 
;PRINT MTS TAG 

;PRINT MTS 

;PRINT MTC TAG 

;PRINT MTC 

;PRINT BYTE COUNT TAG 


;I 
> PRINT 
»-PRINT 


;PRINT 
3 SEE 


BYTE COUNT 


;PRINT 
>SEE IF PRINT BA 
-IF NOT: BR 


BUS ADDRESS TAG 
CURRENT ADDRESS 


EXPT ADDRESS 


IF HALT ON ERROR 
OT: BR 


:TEST FOR tG 
{GO SEE IF SCOPE ON ERROR 


EG 0Ce 


NO2 


CZTSFDO TSO3 SPLMTL INSTR MACY11 30A(10S2) 1S-FEB-78 14:05 PAGE 26 SEG 0026 
CZTSFD.F11 1S-FEB-78 14:04 | 

a58 :DATA CHECK SUBROUTINE ####ee#%# 

960 004160 oD0De40 DCHK: NOP 

961 OO04i6e 005067 174522 CLR CRCNT -CLEAR COUNTER 

962 004166 1eille DCHKO: CMPB (R1), (R2) -SEE IF EXPT DATA=RCVD DATA 

963 0041 1007 BNE OCHKE -IF NOT: BR 

964 004172 O0S267 174512 DCHK1: INC CRCNT ‘BUMP CHARACTER COUNTER 

965 004176 le2lee CMPB (R1}+, (R2)+ 

966 004200 005300 DEC RO :SEE IF DONE 

967 OO4202 001371 BNE DCHKO -IF NOT: 

968 004204 000167 O00I1S0 IMP DCHKX ‘ELSE GO TO EXIT ROUTINE 

9639 004210 o002e40 OCHKE: NOP 

870 OO42l2 O12e767 OO00001 174472 MOV #1, DERFL :SET ERROR FLAG 

971 OO04%220 032777 Oe0000 174372 BIT #20000, JSWR ; SEE IF PRINT ERROR 

972 OO04226 001054 BNE DCHKX F NOT: BR 

973 004230 005767 17440 TST HDRFL ; SEE IF DONE HEADER 

974 004234 1007 BNE DCHKE 1 -IF SO: BR 

975 004236 016704 174416 MOV EMADDR RY 

976 OO4e42 004767 O00S44 ISR C, TTOUT :PRINT HEADER 

977 OO42e46 012767 O00001 174440 MOV af * HORFL :SET HEADER FLAG 

878 O042eS4 012704 006657 OCHKE1: MOV #MSG12,R4 

879 004260 005767 174432 TST PFLG :SEE IF PRINTED DATA ERROF TAG 

980 004264 9001004 BNE DCHKEe2 -IF SO: BR 

981 OO04266 005267 174424 INC PFLG 

982 004272 004767 000514 ISR PC. TTOUT sELSE PRINT DATA ERROR TAG 

983 004276 012704 006673 DCHKE2: MOV #M5G13, R4 

984 004302 004767 OD0S04 JSR PC. TTOUT :PRINT CHAR NUMBER TAG 

98s O04 016703 174376 MOV CRENT. RB 

986 004312 004767 000672 ISR octp :PRINT CHAR NUMBER 

987 004316 012704 006701 MOV #MSG14,R4 

988 004322 004767 O00464 JSR TTOUT :PRINT GOOD TAG 

989 004326 111103 MOVB CRI). RB 

3990 3 004767 1102 ISR Pc. DOUT PRINT GOOD CHARACTER 
004334 012704 006706 MOV ahSG15 RY 

992 004340 004767 O44 ISR TTOUT :-PRINT BAD TAG 

993 O04344 111203 MOVB Re, R3 

994 004346 004767 001064 JSR pdwT :PRINT BAD CHARACTER 

995 0043Se o002e40 NOP 

996 004354 000167 177612 IMP iene :CONTINUE FOR ALL BYTES 

3997 004360 o00240 DCHKX: NOP 

998 004362 005767 174324 TS) DERFL ;SEE IF ANY ERROR 

999 004366 001404 BEQ OCHKXX 

1000 004370 005777 174224 TST aSWR ‘SEE IF HALT ON ERROR 

1001 004374 i00001 BPL OCHKXX : IF NOT: BF 

1002 004376 O00000 HALT 

1003 OO04400 004767 001220 DCHKXX: JSR PC, CKSWR -TEST FOR (tG 

1004 OO44O4 9O002e40 NOP 

100 Dbuuts Beebe? tousod CR sé DERRFL CLEAR DATA ERROR FLAG 

1007 OO4416 000207 RTS PC : RETURN 


oo nN" 
0M OO 
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- 
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42 


0 Ts03 SPLMTL INSTR MACYI11 30A(10S2) 1S-FEB-78 
Pi 1S-FEB-78 14:04 
:SCOPE LOOP ON ERROR SUBROUTINE s#seseee4 
004420 004767 001200 SCOPE: JSR PC, CKSWF -TEST FOR 1G 
004424 0 NOP 
004426 032777 O40000 174164 BIT #40000, aSWR ;SEE_IF LOOP ON ERROR | 
001001 BNE SCOPE 1 SO: BR 
448 poos4a SCOPE! NOP :ELSE exit 
by * : 
005726 : TST (SP)4 -RESET STACK 
hae 212 af BLTAOD, R3 
tte; 742! 
0113 . IMP (R3) LOOP ON ERPOR 
- TEST ITERATION SUBROUTINES ##eeeeaee 
erp 001142 i pe PC, CKSWR TEST FOR #6 
032777 Gi0000 174130 BIT 810000, dSwr -SEE IF ITERATIONS 
001403 BEQ ITER] -IF SO: BR 
00S067 174210 ITERO: CLR ITCNT ; CLEAR ITERATION COUNTER 
000207 RTS Pc ‘ELSE EXIT 
S 005267 174252 ITERI: INC ITCNT : BUMP COUNTER 
4 Ceb767 174176 174122 CMP ITCNT, ITAMT -SEE IF DONE ALL 
004Si2 001767 BEG ITERO -IF SO: BR 
004514 72 TST (SP)¢ “RESET STACK 
004516 017700 174144 MOV JITRLP,RO ;SET ITERATION POINTER 
904S2ee 000115 vm (RO) -GO ITERATE 
:MAG TAPE INTERRUPT HANDLER#saeeeeeeee 
o04S24 024 MTINT: NOP 
Oe2be6b CMP (SP). (SP)+¢ -RESET STACK POINTER 
042777 OOC100 174044 BIC 8100, amTCc “CLEAR INTERRUPT ENABLE 
000240 NOP 
000240 NOP 
000207 ats . Pe -RETURN TO CALLER 
: TTY INTERRUPT HANDLER seseeeeeeae 
o04s44 o002e40 TTINT: NOP 
OO4S46 OO00240 NOP 
O945S50 o00e40 NOP 
oo4#sS2 cootce RT] 


Ca 


CZTSFODO TSO3 SPLMTL INSTR 


SFO. 


toes 
i054 


bee 


10S7 


QONQO0000000 
OOCrrrrrum 
NOU LC Wtue-OWMD 


e 


: 


Vez oneo 


NN 
Ow 


ONDOQV00N000000000 


Saeee 


Pii 


004720 


iS-FEB-"8 


000e07 


14:04 


i74%07e 


0001Se 
000215 


174050 
000066 
000260 
000076 
000270 


O0006e 
174006 


177770 
173756 


000014 


coo004 


MACY LI 


1740S4 


174032 


174016 


173762 


300A‘ 10Se} 


TTR: 


TTRO: 


TTR1: 


TTRIA: 


TTRIB: 


TTRe: 


TTR3: 


TTRY: 
TTRS: 


1S-FEB-78 


14:05 PAGE 28 


SSSESESASSSSAS SSSR KSSSSEFFSSSLSSFRFSLSSLSSSS SSS FSH SASS S 


TTY ENTRY SUBROUTINE: 


Ih, veROUT Tne Yo! REHD THE RESPONSE ENTERED 


cag 


3 
; THE CALLI 


ALL RESPON 
we tog Fa 


Y AND 


*ErSHEN Foe ante Set Bh 


F AN ENTRY ILLEGAL OR OUTSIDE THE LIMITS 
sf nna Is eOBED (7) AND THE RESPONSE 


O SIX (6) CHARACTERS AND 
LESS THAN SIZ BY 


YPING A 


SORTA DURRR SEAT TEQRERRREROERERSHESENEERGEERESERE: EERPEEE 
;CLEAR FIRST CHARACTER FLAG 


: MAY 
: ENTRIES s ney "hoe “exces 
: MAY ERMINATED A 
: CARR 

CLR TEMP 1 

LR 0 

JSR C,TTIN 
MPB e21S,TIB 
NE TTRI 

TST TEMP 1 

BEG TTRS 

IMP TRe 

CMPB #260, TIB 

BLOS TRIA 

IMP INER 
CMPB #270,TIB 

BHI TTRIB 

JMP TINER 

INC TEMP] 

CLC 

ROL RO 

ow 

ROL R0 

CLC 

ROL 

BIC #177770. TIB 

BIS TIB,RO 

DEC Ri 

BNE TTRO 

CMP RO, Re 

BLOS TTR3 

IMP TINER 

CMP R3,RO 

BLOS TTRY 

IMP TINER 

MOV RO, (RS) 

RTS PC 


;GO ae CHARACTER 
; SEE if CR 


F NOT: BR 
; SEE IF FIRST CHARACTER 


‘ELSE G0 LOAD VALUE 
‘SEE IF CHAR IS LESS THAN O 
SIF _NOT: 

ELSE GO TO ERROR : 
: SEE IF ee IS GREATER THAN 7 


;ELSE GO TO ERROR 
:SET FIRST CHARACTER FLAG 


-SHIFT 3 LEFT 


Mir MMH Ww 


O ERROR 
BELOW MINIMUM LIMIT 


Cc 

F 

T: B 

F ap SERED MAXIMUM LIMIT 
fe 

F 

G0 TO ERROR 

VALUE 


SEG O0es 


DOS 


CZTSFOO TSG3 SPLMTL INSTR MACY11 30A(10S2) 1S-FEB-78 14:05 PAGE e9 
ca TSFO.Fi1 1S-FEB-"S 14:04 


ete : TTY ENTRY ERROR SUBROUTINE ### #88 e8> 
33 
1105 oo4722 012704 9006713 TINER: MOV eMSG16,F4 
ie Sovees Sosrer papees soe STIR TRBINT" oe 00 stant oF VALUE ROUTING 
j ‘ 4 ] a =f 4 | Ui f 
1198 004736 000207 RTS PC “REDO VALUE ENTRY 
l 
1110 ;TTY READ SUBROUTINE s##eeeeeee 
L111 
lite 004740 O0S077 173660 TTIN: CLR aTKS 
11J3 004744 005077 173656 CLR aTKB 
1114 004750 OO0S067 173674 CLR TIB 
111S 004754 005277 173644 INC JTKS 
1116 760 108777 173640 TTINI: TSTB aTk 
eel 764 100375 BPL TIN1 
, 1118 OO4%766 017767 173634 173654 MOV aTKB, TIS 
1119 004774 105777 173630 TTINe: TSTB Pp 
lle0 o0S000 100375 BPL TINe 
liel O0S00e 116777 173642 173622 MOVB TIB, JTPB 
Lige 005010 000207 RTS PC 
1124 -TTY OUTPUT SUBROUTINE ##*###*34% 
1126 OOSO12 112467 173630 TTOUT: MOVB (R4)+. TOB 
lle? OGOSO16 122767 OO004S 173622 CMPB #43, TB 
1128 005024 0014Se BEQ TEX 
1129 26 lee767 OOOONS 173612 CMPB #4S.TOB 
1130 034 1407 BEO TCRLF 
1131 005036 122767 OO0041 1723602 CMPB #41, TOB 
1132 oO0OSO44 001443 BEQ TBELL 
1133 004767 OO0064 JSR PC. TOG 
1134 00505¢ 000757 BR TTOuT 
1135 4 112767 OO001S 173564 TCRLF: MOVB #15. TOB 
1136 OO0SO062 004767 OD00S0 JSR pc, toc 
1137 OO0SO066 012703 o00004 MOV 84 
1138 005072 005067 173550 TCRLFA: CLR 
1139 005076 004767 000034 JSR PC, TOG 
1140 6005102 005303 DEC 
1141 005104 001372 BNE TCRLFA DO FILLERS 
1142 005106 112767 OO00012 173522 MOVB #i2. TOB 
1143 00S114 767 OOO01E6 JSR PC TOG 
114% 005120 105767 173604 TSTB ROSW 
1145 00S5i2e4% 100401 BMI 1$ 
1146 O0Sie6 000731 BR TTOUT 
1147 005130 O0S067 173574 1S: CLR RDS 
1148 005134 o00406 BR TEX 
1149 005136 105777 173466 TOG: TSTB aTPS 
1150 005142 100375 BPL TOG 
1151 OOS144 116777 173476 173460 MOVB TOB, JTPE 
1152 o0051sSe 207 TEX: RTS PC 
1153 005154 012703 oD000e TBELL: MOV 82, R3 
1154 005160 012767 OO00007 i73460 ‘BELA: MOV #7. TO8 
1155 005166 004767 177744 JSR PC’ TOG 
1156 O0f5172 005303 DEC R2 
1157 905174 001371 BNE TBELA 
1158 605176 oO0075¢ QR TTOUT 


EOS 
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CZTSFO.Pil 1S-FEB-78 14:04 
i159 -OCTAL OUTPUT SUBROUTINE ss#sseseees 
11 
1161 OOS200 012767 OO0COl D00e2& OCTPE: Mov #1, 0FL 
1162 005206 000402 ge OC TPE: : : 
1163 9305210 OO0SO&7? ocO0e20 OCTP: CLR OFL “CLEAR FLAG FOR LEADING ZERO 
1164 005214 010304 OCTPEL: MOV R3.R4 -SEE IF NUMBER IS ZERO 
1165 00S216 001007 BNE octreo -IF NOT ZERO: BR 
1166 005767 o00210 TST OFL -SEE IF PRINT ALL O 
1167 OO0S2e4 001004 BNE OCTPO ;IF SO: BR. _ 
1168 26 004767 oOO00ibe JSR PC. OCTPG1 -ELSE PRINT ZERO 
1169 OO0Se32 000167 000120 JMP octP3 : SPACE ANDO EXIT 
1170 032704 100000 OCcTPO: BIT #100000, R4 -SEE IF MSD = 1 
1171 O0Se4%e oO0i406 BEQ OCTP] -IF NOT: BR 
1172 OO0S244 012704 900001 MOV #1,R4 
1173 O0S2eS0 004767 OOO0LIs& ISR PC’ OCTPG :PRINT 1 
1174 00S2eS4 O00167 9O00006 IMP octPe 
117S oO0Se60 o0S004 OCTP1: CLR RY 
1176 O0S26e 004767 O00104 TSR PC, OCTPG -PRINT O 
1177 005266 010304 OcTP2: MOV R3.R4 
1178 005270 O06004 ROR RY 
1179 O00Se7e o06004 ROR RY 
1180 0695274 O06004 ROR RY -POSITION DIGIT 
1181 005276 O06004 ROR RY 
1182 005300 000304 SWAB RY 
1183 005302 004767 ocODD00E4 JSR PC, OCTPG -PRINT DIGIT é@ 
1184 005306 010304 MOV R3°R4 
1185 005310 o4 ROR 
1186 005312 000304 SWAB RY 
1187 005314 004767 oOoD0se ISR PC, OCTPG -PRINT DIGIT 3 
1188 005320 010304 MOV R3,R4 
1189 005322 006104 ROL 
1190 3 006104 ROL RY 
1191 005326 000304 SWAB RY 
1192 005330 004767 oc0036 JSR PC,OCTPG PRINT DIGI? 4 
1193 005334 010304 MOV R3°R4 
1194 006004 ROR 
119S 005340 OO06004 ROR RY 
1196 005342 oO06004 ROR RY 
1197 905344 004767 oOD00ze JSR PC, OCTPG 
ties DUE zee phe? 000014 TSR Pe’ OCTPG PRINT DIGIT S 
ig01 Bosses Busser SHEE 175862 crea: Fay ANAT peur space 
4 177 , ;PRIN 
le0e 6053°0 d00207 RTS pc - EXIT 


FOS 


al ~~ ~ 


PZTSEDO. S03 SPLMTL INSTR MACY11 30Q(10S2) iS-FEB-78 14:05 PAGE 31 SEG 903: 
CZTSFD.F 1S-FEB-78 14:04 

i203 

1204 -OCTAL PRINT SUBROUTINE s###eee446 

1205S 

1206 oOO0S372 o4e704 177770 oCTPG: BIC #177770, R4 

1207 005376 001004 BNE OCTPGO 

1e08 OOS400 005767 97000030 TST OFL 

1209 OOS4O4 001001 BNE OCTFGO 

lei0 O0S406 000207 RTS PC 

lell 005410 O0S267 oD00020 OCTPGO: INC OFL 

lele OOS414 OS2704 o00260 OCTPG1: BIS #260, R4 

1e13 OOS420 010467 173222 MOV RY, Toe 

1214 005424 004767 177506 JSR PC’ TOG 

1e1S 005430 010304 MOV R3.R4 

1216 005432 000207 RTS 

igi? 905434 oo00000 OFL: 0 ;FIRST CHAR FLAG 

1219 -DATA CHARACTER OUTPUT SUBROUTINE s##ss45e5% 

leel OOS436 OOSOB7 173204 DOUT: CLR TOB : 

leee OOS44e 012704 OO0dI0 MOV #10 RY -SET NUMBER TO PRIN? 

lees OOS4H4&6 110367 173174 MOVB 3. tos 

122% OOS4Se 105777 173152 DOUTI1: TSTB atPs 

lees 005456 100375 BPL DOUT1 

leee OOS460 132767 OO0200 172160 BITB #200, TOB 

lee? OOS466 001404 BEQ U 

le2e8 005470 012777 O000b1 173134 MOV #061, aTPB 

lee9 005476 000403 BR 

1230 OO0SS00 012777 OO0DEO 173124 DOUT2: MOV #060, aTPB 

1231 OOSS06 006167 173134 DOUT3: ROL TOB 

1232 o00SSl12 005304 DEC RY 

1233 005514 001356 BNE DOUT1 

1234 005516 000207 RTS 

le3S 005520 016703 173132 DOUTD: MOV TEMP3,R3 

1236 005524 000303 SWAB R3 

1237 005526 004767 177704 JSR PC. DOUT 

1e38 OO0SS32 016703 173120 MOV TEMPS. R3 

1239 005536 004767 177674 JSP. PC ,DOUT 

le4o 005542 O00cu7 RTS PC 

124] 

lee 

1243 

1244 

1245 OOSS44 013746 oD0006 SUSWR: MOV dab, -(SP) -SAVE VECTORS 

1e4%6 OOSSSO 013746 OO00004 MOV a#4’-( SP) 

i247 OOSS5S4 012737 005574 ocD004 MOV 1S. a84 -SET UP FOR TIMEOUT 

1248 O00SS62e 022777 177777 173030 CMP 8-1: aSWR “REFERENCE HARDWARE SWITCH REGISTER 

1248 005570 001402 BEG 23 

1250 S72 BR 3$ 

1eS1 005574 Oe2be6 13: CMP (SP)+. (SP)+ ADJUST STACK 

12eSe 005576 012767 OOOL7E 173014 2: MOV aSWREG, SWR : POINT TO SOF THARE SWITCH REG 

1253 OO0S604 012767 O00174 173010 MOV #DISPREG, DISPLAY POINT TO SOFT DISPLAY REG 

1254 005612 Ole637 oOO0004 33: MOV (SP)+, 004 -RESTORE VECTORS 

1255 OOSEIE 012637 O0000E MOV (SP i+: aae 

i256 O005ee 000207 RTS pr 

ry 4 yy 

1esé 


CZTSFOO + SPLMTL_ INSTR 


Ce 


<TSFO.F 


1301 


GW 
OO 
(wr 


> + 0 0 bb 
epetepepet.+.t.t ttt: 
‘cesueceods SRRY 
£WIM-OWONTUML 


o0S6e4 
3e 


022767 


060207 
00S067 


006367 


IS-FEB-"8 14:04 


000176 
172764 
172760 


177600 
000007 


000726 
00000e 


172762 


0000eS 


00001e 
172032 
172022 
00001C 


007273 
176750 


000015 
000200 


1767c6 
000007 


000060 
000067 


00734S 
176660 


172566 
17eS6e 


MACY11 30AR(10S2) 


172766 


1727Se 


172664 
17c656 


17264e 


172576 
17264 
172630 


172S40 
172530 


CK SWR: 


CNTLU: 


OUT: 


SREAD: 


1$: 


33: 
11$: 


10$: 


es: 


4$: 


Ss: 


6S: 


GO3 


14:05 PAGE 3e 


1S-FEB-78 
CMP aSWREG, SWR 
BNE OUT 
TST aTKS 
BPL T 
MOV dTKB, TIB 
BIC #177600, TI8 
CMP #7.iI8 
BNE out 
MOV #SCNTG, RY 
JSR PC. TTOUT 
MOV aSMSWR, RY 
JSR PC, TTOUT 
MOV JISWR, R3 
JSR PC of TPE 
MOV eSMNEW, RY 
JSR PC. TTOUT 
CLR aatEMPst 
ISR PC, SREAD 
RTS 
CLR TEMPST 
MOV #7, COUNT 
JSR Pc’ TTIN 
BIC #177600, TIB 
CMPB #eS,TIB 
BNE 11 
TST ( )+ 
BR CNTLU 
CMPB #i2,TIB 
BNE 2S 
TST 46 
BEQ 10% 
TST (SP)+¢ 
MOV 46, (S 
ADD #16, (SP) 
BR OUT 
MOV #SNOACT,. RY 
JSR PC, TTOUT 
BR 3 
CMPB #15, TIB 
BNE 4g 
MOV #200, ROSW 
JSR pc, TORLF 
CMP 87: COUNT 
BNE 73° 
TST (SP)+ 
BR OUT 
CMPB #60, TIB 
BGT S 
CMPB #67,TIB 
BGT 
MOV SSQUEST, RY 
JSR PC. TTOUT 
BR 3° 
ASL TEMPST 
ASL TEMPST 


‘READY 


: AND 
: THE 


iO, GET OUT REG 


sti 
ZARBAGE 


°IS IT Gq’ «?G@> 


;GO 


READ A 


;GO READ A CHARACTER 
: STRIP rs © tegen. 


;1S IT 
BRANCH IF UNOT 


;8 H IF 
; TEST FOR AC 


NOT 
T-11 HOOKS 


LINE 
:RETURN TO MAIN BODY 


PRESENT 


Ger > CHARAC TEP 


OF PROGRAM 


NO HOOKS-<LF> WAS MISTAKE 
‘POP THE STACK 


:MAKE ACT-1! 


;GO_ TO Ng's 
:LET OPR KNOW 
:AND RETURN 
;FOR ate dy 


ADDRESS 
ADORESS 


TRY 


-IS IT A <CR> 

: BRANCH IF NOT 
;ECHO IT WITH <LF> 
-WAS IT FIRST cha RAC 


:POP T 


-START OVER 


IF NOT LEGAL 


TER 
; CHANGE SWR IF NOT FIRST ONE 
HE STACK 


CHARACTER 


CZTSFOO TSO3 SPLMTL INSTR MACY11 30A(10S52) 1S-FEB-78 14:05 PAGE 33 SEG 3032 
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ijl 144 O00 7 rd “ TEMPST 

ize Bee ids TaSses sos8e8 i7e47e Bre 280. 718 -GET NITTY-GRITTY 

1317 006156 156767 172466 17ecS%e 8ISs TIE, TEMFST 

131 pi 4 tg 172534 C —" -ONLY WANT 6 OIGITS 

1 4 1 g (54 Q 

i 617 667 n 1$ 

i3@1 O06174% O1B777 172SeB iFre4ieE TS: MOV TEMEST, aSWR -CHANGE SWITCH REGISTER CONTENTS 
igee 006202 000735 BR =} 

i JES 


or 4 


at an 4 aa SPLMTL 
1S-FEB-"é 


TSFO.F 


yp tt et wh wt tt 
aw 


o-- } + Bb pb &-- > « p— b+ b+ > = & - + &- &—- b= & + D—- B-- H © 
LU) 
Ow 


WW) 
££ 
Wwrue 


006204 


006330 


00S067 


INSTR 


14:04 


172536 
Oe0000 


O000S4 
000042 


172511 


172502 
177777 


00004 i 
172462 
1724SS 


MACY11 308(10Se2) 


0000Se 


OOOO4E 


l7e3le 


o 
. 
7 


CKMODE: 


6$: 


1$: 


UI) 
wwe 


1S-FEB-78 
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SESS SSESSETEESESESSESSSERERE ESSE ESE SESS HESS FSS FSE SESE F FFE SHS FA*S 


++ 


MODIFIED JAN 24 1978 


CHECK FOR DUMP MODE OR AUTOMATIC/ACTI1-xXXDP MODE 


AUTOM 
#20000 ,a8Se 


ABORT 
dete, ae46 


1 
XXDPM 
S$ 
ACT11M 


8177777, 
a 


S 
a#41 

$ 
ADUMPM 
S$ 
XDUMPM 
PC 


UTOUmAT ES MODE INDICATOR 
ACT MODE INDICATOR 
CTl UMP IN 

XDP DUMP MODE INDICATOR 
RANCH - IF NO 

SET AUTO MODE If vsICATOR 

RANUA, I INTERVENTION?” 


CH - IF NO 
;ABORT THE PROGRAM 
-ACTIL MODE ” 


:BRANCH - IF _YES 
: INDICATE XXDP AUTO MODE 


:AND EXIT 
: INDICATE ACT11 AUTO MODE 
;SET pt CH REGISTER 


SAND EX 
;MAN/MODE VIA ACTI1/PAPER TAPE’ 

;BRANCH - IF 

: INDICATE MAN/MODE VIA ACTL1’PAPER TAPE 


;AND EXIT 
; INDICATE MANUAL MODE VIA XxXDP 


SHESERSERSSEESEEESSE SESE SSSA SESFE SEAR EES RELE ES FESS SR AHF E SHELA IHS 


JOS 


cg Tor RY. 4 eas a aes INSTR MACY11 308(10Se2) 1S-FEB-78 14:05 PAGE 35 G 003s 
CZTSFD.F IS-FEB-"e 14:04 

i3ss 

i366 . SSSSSESESSESSERESSKESSESSSSSESRSSSESS SSE SESS SRESSE SAF HESS F FSSA SFHADS 

1361 : MODIFIED JAN 24 1978 

1362 

1363 ++ 

tare CHECK FOR DUMP MODE OR AUTOMATIC/ACTILI-XXDP MODE 

1366 : 

1367 O0633e 000005 ABORT: RESET -CLEAR THE WORLD 

1368 006334 Ole704 006366 MOV #MSGO,RY -GET THE MESSAGE 

13639 O0634%0 O04767 176446 JSR PC. TTOUT :PRINT ABORT MESSAGE 

1370 006344 105767 172433 TSTB xxOPM ;xXDP AUTO MODE” 

1371 006350 001405 BEG 1$ :BRANCH - IF NO 

137e O063Se 013700 o0004%e MOV 5B42. RO - GET MONITOR EXIT ADDRESS 

1373 006356 005037 000042 CLR ae4e - USE AS ABORT FLAG 

1374 006362 094700 JSR PC,RO -EXIT TO XxXDP MOr..TOR 

pth 006364 9009777 1$: BR ‘ - AND HANG 

ee EEEEEEEERE EE ESEE SEE ESE ES EEL ESE HESS ERE ESE ERS SEE SEES SEE SEE AED GARE ES 





~ 

ae 
~=> 
a 


TSFOO TSO3 SPL 
TSFO.Fi i 


oP ad 


i373 


MTL_INSTR 


S-FEB-"8 14:04 


MACY11 30AR( 1052) 


1S-FEB-78 


KO3 


14:05 PAGE 36 


CZTSFOO 
CZTSFO.P 


Pttertetteter 
0 tnt tet = 


wr te fe he tt 
at itt: 


Ob ee ee he bh a ee he bo he ee 
St F tehehebubepuputubebut ++ + FFF FFF 
BUFR LOD WUE 


PUTUTY me ob + be bp  - C) 
MVM K-OWONCU LS Wl OwW 


1423 


TSO3 S 
li 


006762 


027060 


PLMTL_ INSTR 
1S-FEB-78 14:04 


040504 
OSilee 


047103 
035107 
020072 


43 
051127 
051105 


020065 


MACY11 30A( 1052) 


“ery 


b2bi24 


051105 


020072 
0S2117 


035123 
020072 
041502 
040503 
40502 

41501 

. 7S2e 
052117 
0S4S04 
047516 
051105 
043 


4 
040Se4 
051117 


020072 
021440 

043 
052111 
047S2e2 
020104 


O42S06 


MSGO: 


MSGI: 


LOS 
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-MESSAGE TABLE ####eee44 


-ASCII 


.ASCIT 


/Z7ZPROGFAM ABORTEDS, 


/A7CZTSFDOG TSO3 SPLMTL INSTR: 


/7ENTER UNIT NUMBER: & * 


/“%ALEND OF PASS: &/ 


/“%YYREWIND ERROR: NO BOTS 


SYMTS: 87 
ZYMTC: 87 
/7MTBC: &/ 
Z“MTCA: 8/7 
/7%**BACKSPACE ERRORS 


“%**NOT READY #7 
Z%**NO INTERRUPT #/ 
/Z7ZDATA ERRORS 
SZCN: 87 

S4G: 8/7 

47B: &/ 


4?@/ 
/ZWRITE ERRORS&/ 


/ZREAD ERRORS/ 
/ZNO OPI IN 10.5 FEETS/ 


SEG 0037 


CZTSFODO TSO3 SPLMTL INSTR 
CZ2TSFO.P1i1 


e 





i 


partes 


007041 
e's 


507 Sl 
0072S6 


007345 


007352 


ae 


177777 
0074S4 


1S-FEB-78 14:04 


O4eSe6b 
020072 


0S4S2e2 
022477 


MACY11 30A( 1052) 


0S2103 
O43 


ea946 


O43 
OS1441 
043 
053505 
020117 


022445 
02144S 


MSGe0: 


MSGel: 


MSGee: 


MSGe3: 


LTIMSG: 


LT2MSG: 


LT3MSG: 


LTYMSG: 


CNTG: 
MSWR: 


SMNEW: 


SNOACT: 


SQUEST: 


WDATA: 


1S-FEB-78 
ASCII 
ASCII 
.ASCII 
ASCII 


03 


14:05 PAGE 38 


(“OPI WITHIN 4.0 FEETS/ 


/ YtNOT AVAILABLE S/ 


/Z7REGISTER START: 


/*~VECTOR: 


- TEST HEADERS ##e eee ee 


-ASCII 


ASCII 


-ASCII 


.ASCITI 


-ASCII 
ASCII 


-ASCII 
-ASCII 


SA“ATEST Ls 


g/ 


WRITE FROM ODD BYTES’ 


/“AZTEST 2@: READ TO OOD BYTESR/ 


SAZATEST 3: OPI TOO LONGS/ 


S“%~TEST 4: OPI TOO SHORT #/ 


S“AAGRS 


SZAAZLtSWR= #/ 


/ WNEW= 


SRPVALAG/ 


g/ 
SZANO ACT-11 HOOKS 


(LF> =INVALID --RETRY%%#- 


SEG CO36 


NO3 


CZTSFOO TSO3 SPLMTL_ INSTR MACY11 30A:(1052) 15-FEB-78 14:05 PAGE 39 SEG 9039 
CZTSFO.Fil 1S-FEB-78 14:04 


i49e o0074S4 9000000 RDATA: QO 
i493 000001 . END 


——_—_—_—_————— ee a _ ~———_—_— 


CZTSFOO TSO3 et wl: ai: be 
cat P 


D 
SFD.P1il 
ABORT 006332 
ACTIIM OQ00100e 
ADUMPM 001004 
AUTOM 001000 
BROR 000676 
BCNT 00072e 
BK SP 003356 
BKSP 1 00340e 
BYTES 000700 
CCNT 0006 14 
CKMODE O062C04 
CKSWR 00S6e4 
CNTLU 00S6 76 
COUNT 000724 
CRCNT 000710 
DCHK 004160 
DCHKE 004210 
DCHKE1 OO042S4 
DCHKEe OO04%276E 
DCHK X 004360 
DCHKXX 004400 
DCHKO 004166 
DCHK 1 004172 
ERFL 0007 1e 
DISPLA OO00b22 
ISPRE 000174 
UT 00S4 

DOUTD o00SsS20 
DOUT1 o0s4Se 
DOUTe2 00SS00 
UT3 O0OSSO06 
IVE oo0040 
000660 

RCHK 003672 
ERCHK!1 003704 
ERCHKe 003716 
ERCHK3 003740 
ERPT 003750 
ERPTX 004140 
ERPTXxX QOO41S50 
ERPTI 00 
ERRAD 000662 

EXEC 344 
EXECX 0036Se 
EXECXX O03662 
EXECO 003446 
EXEC] 003500 
EXECe 003520 
EXECS 003602 
EXECY 00364e 
UN 000704 
HDRFL 000714 
HERE 002016 
ITAMT 000634 
ITCNT 00706 
ITER O0044S4 


14: 


13678 
476 


l 
719 


MACY11 Wee kee) 


leels 
1233 


BO4 


bee 


750% 


751% 


i003 


S66 
800 


7S3* 
786 


iS-FEB-78 14:05 PAGE 4 
ROSS REFERENCE TABLE -- USER STMBO.S 
cue S60 603 
695+* 709% 738% 

789 8438 

696+* 710% 739+ 
873 900 956 
1318% 

98s 

1006+# 

1237 le33 

734 779# B2e 
714 742 787 
919 Sels 

699% 713* 741% 
71l 740 7S4 
694 708* 737% 
891 S24 328+ 
803+ B0S+* 1030 
1030 

804 10238 


102 
763 


1333% 


783% 


784 


1010 


851 


78S 
7939 


7Se* 
977s 


13474 


79S* 


736 


ide4 


326 
9068 


7,938 
sseea 


797% 


B76 314 95: 
877 Jie 343 
icS3a 

975 

8so* 323 

§73S 


SEG UC4O 


CO4Y 


SoZ TSF TSO3 SPLMTL INSTR MACY11 30R(10Se) I15-FEB-78 14:05 PAGE 42 M3 
<SreFO Pi 1S-FEB-7"8 i4:04 CROSS REFERENCE TABLE -- USER SYMBOLS 
TER “47 i0278 1031 
fy Rt? poueo5 155, 10298 
ITRLP OO0666 4328 hn S7S+* ay tig at, cane Sees 600 
TA 4 4318 72% c3* c ! 
LFROO  BBBSE4 rn a <P 
LT18 002106 b448 647 
L71ic 0021659 boa 
Tip Saeass a 
= 
T G 007075 BY 14S38 
at es Bb 2312 4S 458 6eSe 
LTeB 002330 air) 642 
LTec 002374 6998 
LTed 002432 70S8 707 
4 002470 7les 
LT2EMSG 007133 686 14S9a 
LT3 002534 459 7338 
LT3A S4 7378 746 
LT38 Oe 7418 
LT3C 702 7SSs# 
LT3SIT 002632 460 7478 
LT3MSG OO7I1ES 734 14648 
LT3x 002740 758 7628 
LT4 002764 461 7788 
LT4A 3004 78e8 7931 
LT48 3040 7878 
LT4C 00313e 8008 
LT4YIT 003062 462 79328 
LT4MSG 007215 779 14688 
MEDIUM 0041 3358 
mMSGO 006366 1368 13828 
MSG1 006410 483 138S8 
MSG10 22 868 14148 
MSG11 7 89S 14178 
mSGle 006657 978 14208 
MSG13 983 14238 
MSG14 006701 987 142eSea 
MSG1IS 991 l4eba 
MSGI16 006713 1105S 14278 
MSG17 006715 6Se 6939 741 78S 1428s 
MSG18 006732 666 713 1Y31s8 
MSG1S 006746 753 14338 
006444 S14 13908 
™SG20 6773 798 14378 
007020 S49 14418 
MSG2e 007041 485 14448 
mS 007063 494 144868 
MSG3 006470 607 13948 
MSGY 006511 824 13978 
MSGS 006541 826 931 14028 
MS 006550 830 935 14048 
MSG7 oS7 939 14068 
MSGB 006567 HS 14088 
MSGS 006577 8S0 
MTBA OOOECE 40S 876+ 318 947 
MTBC OC0ED4 4O4e B4S+# 877% $09 341 


1016 


SEG 904i 


O4 


MACY11 30A(10S2) i1S-FEB-78 14:05 PAGE 43 


CZTSFOO TSO3 SPLMTL INSTR 
CROSS REFERENCE TABLE -- USER SYMBOLS 


C2TSFD.Pil 1S-FEB-78 14:04 


MTC ocoebGe 4O38 Si3* 536* SS4* 810* 813+ 814 
 povse a, soy ips 

MTIN 4Se4 4 wt 

TS 0 4Ooe : et 757 811 B1é 818 

NORCT + 5 38 

OcTP 00$210 486 497 S20 610 Sal ASS 9Se 

Oc TP OO2500 Be rea 934 938 llbl® le7e 

OCTPEI 14 ll 11648 x 

OCTPG 00537e 1173 1176 1183 1187 1192 1197 1199 

ocTPGO O0S410 1207 1209 lells 

OCTPG1 OOS414 i168 leles 

OC TPO 005236 1165 1167 11708 

OCTP] 005260 1171 11758 

OCcTPe O0OS2b6 1174 11778 

OcTP3 005356 1169 12008 

OFL 005434 l1161# 1163% 1166 1208 lell* lel7s 

OUT 005736 1260 lebe l1eb6 le77e 1234 1305 

PCNTR 000674 43S5¢@ 476% Ste 60S b2S+* be7* 

PFLG 000716 aos 979 981+* 1005* 

PSW 000616 4098 472% 88e* 

RCNT 00061 4078 

RDATA 007454 658 664 671 703 709 716 750 

RDSW 000730 44S @ 1144 1147+# 1300* 

REGS 0006 418 487 489 S08 

RWND 003172 648 633 736 748 780 793 803s 

RWNDX 003336 Bel 8348 

RWNDXX QOO0O3346 Ble 819 635 8378 

RWND 1 003226 8168 817 

SCNT 000702 4388 656% 701* 743* 788* 84S 

SCOPE 004%420 9$7 10108 

SCOPE1 OO04%440 1013 10158 

SPFLG 00067 4338 759% 761* Gace 8Se* 915 943 
T 00133e S238 SHo 606 

STALL 000636 4178 TH94 7S6* 794% 802% 883 

START 100 387 391 471% 

STFLG 00067e 434s S67 Set S3e# 

STSCD 001666 S71 S328 

SsTo leYe Si4s ssl 

STOR O0le2e SO9s Sie 

STl 001420 $39 S4lea Sa 

ST3 001462 See SSes 

ST4 001470 482 SS38 

STs 001510 cS7# ss9 

SUSWR OOSS44 y7y 12c4Se 

SWR 000620 4108 538 S68 S8e S6E 619 820 
| 971 1000 10le 10e5 124s 1eSe* 12es9 

SWREG 000176 381i 538 leSe 12es9 

TBELA 005160 11548 1157 

TBELL 005154 1132 11538 

TCRLF osos4 1130 11358 1301 

TCRLFA& O05072 11388 1141 

TEMPST 00726 448% l2e7S* 1279+# 1313+ 1314 131S* 1317+ 
TEMP 1 OO0ESe 4c6u 883 887% 1069# 1074 1083# 

TEMPe OO0ES4 4O7 % 

TEMP 3 OOCESE 4oBR S21 S3e* S33* 535 1235 1236 
TEND 001740 S78 £94 6038 


B3e 


828 
986 


1206s 


L3e1 


B44s B4eie 
847 933 
L1ié3s 

143c8 

870 s8g3 
l3el+# 1348+ 


89° 


92e 


953 


4-4 
ww 


00e03e 
005152 
o006S0 


004722 


000646 
005136 


00S01e 


OO4SS4 


0006 10 
000720 


ae + SPLMTL_ INSTR 
FO.P 1S-FEB-78 14:04 


= ee - 


p= hp be a ot b+ b= oh he 


~~ me 


- 


0 me” O—-OWUIUW rfudr 


MACY1i 30A( 1052) 


«+ 


— = bb ee eh 
mot NO Wee eee OCOTVUOF 
Ow wo OftuNIGtunNeE—- OWN! 
—-Mm Or ere ee oOmn~jru 


15-FE8-78 


+* 


bs b= b= B+ bs b-a B- bh b= ps 
* 


CrMrUuEKMEe—-TU OCOWO 
TururMVwtwreco oOW 
CLOW NOW vOOoO 


806 


Seg 


695 


EO4 


14:05 PAGE 44 
CROSS REFERENCE TABLE -- USER SYMBOLS 


S3e 


715 


1135 
1155 


S34* 


738 


L1116# 


1138* 
1201 


535+ 


Lidl 


Ll4es 
leis 


$36 


14908 


lebs+% 


leb4s 


867 
388 


ic&s> 


1200» 


605+ 


lels* 


FOY 


zTSFOO TSO3 SPLMTL INSTR MACYLI 308‘ 195¢ ) 1S-FEB-78 14:05 PAGE 4S 
x$ 26 D.Fil 1S-FEB-"S i4:04 CROSS SEFERENTE TABLE -- USER SYMBOLS 
$NoRCT OCre73 ie3S 14738 
SSUES O007345 1310 L4S7e 
SFERD 0057 4C 1e76 le7Ss 
$svPc = 001000 3288 34S . 
: = JO74S6 3198 328 3308 3348 3388 3428 34S a 3438 
33938 46Sea 1375 143i 


. ABS. O0074S6E G00 


ERRORS DETECTED: 0 
ZTSED CZTSFO. SEQ CRE “SOL “NL: TOCSCZTSFD.F11 
sin TIME: 5 SECONDS 


RUN-TIME RAT 10: 96/6=15.3 
CORE USED: 7K (13 PRGES) 


set 
teh 


DOCUMENT PAGES: 44 





